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Per creare un buon programma non basta imparare come 
usare le istruzioni, anche se questo è sicuramente 
indispensabile, ma bisogna anche sapere impostare (e 
quindi capire) la logica del programma che si intende 
costruire. Per questo l'argomento di questa lezione, cioè 
L'OTTIMIZZAZIONE DEI PROGRAMMI, è particolarmente 
importante. 

Infatti per ottimizzazione si intende la capacità di rendere i 
programmi più chiari, più veloci in esecuzione e che 
occupino meno memoria, evitando la scrittura di listati 
tortuosi (ad esempio con istruzioni o salti che potrebbero 
anche essere eliminati). 

Quando accendi il computer hai a disposizione 38911 bytes 
di memoria libera. 


Per conoscere, in qualsiasi momento, quanta memoria 
libera ti resta scrivi l'istruzione PRINT FRE (0). 

In questo modo 
ti verrà mostrato 
il numero dei C 

bytes ancora f ( \ ) 

liberi. ( Il a 












Tuttavia, a volte, potrai ottenere in risposta dei valori negativi 
e quindi apparentemente assurdi. In questo caso basterà 
aggiungere al valore ottenuto il numero 65536. Quindi, ad 
esempio, se con PRINT FRE (0) il risultato è -26627, i bytes 
liberi saranno in realtà 08906 (cioè: -26627 + 65506). 
Tieni presente che durante l'esecuzione del programma la 
quantità di memoria libera si ridurrà ancora, visto che verrà 
usata per memorizzare i contenuti delle variabili. Quindi se 
vorrai conoscere la memoria occupata dal solo programma, 
dovrai prima azzerare le variabili con il CLR (lez. 16) e poi 
eseguire il PRINT FRE (0) 

Ma vediamo, a questo punto, alcuni importanti consigli da 
ricordare durante la stesura dei tuoi programmi. 

1 ) Ricorda che se scrivi le istruzioni senza separarle con gli 
spazi risparmierai memoria. 


ih. 


5 A=A+1:IF A=9 THEn 5 



5A=A+T.lf r A=9THEN5 



2 ) Quando è possibile, cioè quando conosci il numero dei 
giri, uso sempre cicli con il FOR NEXT anziché realizzarli con 
riF e un contatore. In questo modo il programmo in 
esecuzione risulterà più veloce. 

0 ) Sullo stesso lineo di programmo cerco di mettere più 
istruzioni che nell'insieme svolgono lo stessa funzione. 

4) Cerca di limitare al minimo il numero di variabili, vettori 
e motrici all'inrerno del programma. Quindi, se ti è possibile, 
uso la stesso variabile corrente nei cicli FOR NEXT. 


Comunque in caso di necessità puoi dichiarare le vari abili, 

vettori e le motrici come numeri interi, aggiungendo^-- 

il segno % dopo il nome. / 

Tieni presente che nelle variabili, nei vettori ( 
e nelle motrici dichiarate intere, potrai l 

usare solo i numeri compresi \ 

tra -02766 e 02767 

5) Dopo over creato gli INPUT ricordati di l | 

controllare se le risposte inserite sono \ 

accettabili. In coso contrario fai ripetere f ) l 

l'inserimento. ( ) J 

6 ) Non usare i commenti nelle istruzioni N-* ^ 

REM in modo eccessivo. E' sufficiente v—^ 

metterne uno solo all'Inizio di ogni , 

suddivisione di programmo. •’ 


7) Limita al minimo i salti con il GOTO, in modo do non creare 
disordine e rendere così più facile il controllo del listato. Evita 
anche salti a linee che contengono un GOTO od un'altra 





8 ) Se il programma contiene subroutine accodale al 
programmo principale. 

Quindi non creare inutili subroutine che verrebbero 
richiamate do un solo punto del programmo. 

Tieni presente che, specialmente in programmi molto 
lunghi, l'esecuzione delle ultime linee è più lenta delle 
prime. In questo caso ti converrà mettere le porti di 
programma più lente, o le subroutine di uso più frequente, 
all'inizio del programmo. 

9) Usa sempre, specialmente in cicli molto lunghi, varabili e 
non costanti, questo per velocizzare l'esecuzione. 
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Listato dell'esercizio: ESEMPIO PRATICO 


100 dimn <300 > 

110 i =-t i 
120 K =K + 1 

140 r = int<rnd<01000+1 > 

150 n<K)=r 
160 ifK<300then120 
200 -forK = lto300 
210 t =t +n <K ? 

220 pr intr. <K > 

230 nextK 

300 print"totale "*t 
320 m= int <t/300 ? 

330 print"media"’m 
340 u = irt < <t i -1 >/60> 

350 print"secondi impiegati"’w 
360 end 


Listoto dell'esercizio: COMPLETA IL LISTATO 


10 forK=lto[*]!rsadn$<K),i*<K)!nextK 
20 torcitoi© 

30 C*l = in-t <rnd <0)*3+l > 

40 w=C#3<rnd<0)*3+l) 

50 [*]=rt$(r ):n*<r )=n$(w)in$<u )=c$ 

60 c$=i$<r >:i*<r > = i$< C*3 >:i$<u >=c* 

70 next C * 3 
80 C*3K = lto3 

30 print “chi ha inventato il:" 

100 printt*3 

110 input” inventore" ,*C*3 

120 i-f s$= i^<K >thenpr int "esatto " igoto t # 3 
130 print"sbagliato, era":printi$(K) 

140 C*3K 

150 data“te 1 efono","meucci" 

160 data "para-fu 1 min i ", "franK 1 in " 

170 data"cannocchiale","gal ilei" 
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PROGRAMMIAMO INSIEME (CDM 64) 

10 poKe53£80,7 !poKe53281,7 
£0 dims*<13> 

30 c*<1>="l":c*<2>="x":c$<3?=”2" 

40 d*< 1 > = " lx " :d*<2) = ">:2" :d$<3>=" 12" 

50 t$<1)="1x2" 

60 input "adunerò di triple "ft 

70 i-ft > 13then60 

80 input "Slnumero di doppie";d 

90 i-fd >!3-tthen30 

100 n = int<<3tt>*<2td>) 

110 p r i n t " Eto . colonne ! ’/n 

1£0 1=n *350 

130 print "costo 1 . "; 1 

140 i-ft=0then 180 

150 -f or« = ltot 

160 gosub300!s$<r>=t$<1) 

170 nextK 

180 i-fd =0then££0 

130 -forK = ltod 

200 go sub 300 : q=int <r nd(0)*3+l ):s$(r-)=d$(q) 

210 nextK 

220 ifd+t=13then£60 
230 -forK = lto 13-d-t 

240 gosub300:q=int(rnd<0)*3+1): s$<r)=c$(q) 

£50 nextK 

260 pr int :-f orK = Ito 13 

£70 pr int "partita n.”;K;tab<15>;s*<K> 

280 nextK 
£90 end 

300 r = int(md(0)*13 + l) 

310 i -f s * < r >< > ” " t h e n300 
320 return 

PROGRAMMIAMO INSIEME (VIC 20) 

Il listato è identico a quello per il CBM 64 tranne nella lineo: 

10 poKe 36879,127 

Soluzione dell'esercizio: 

COMPLETA IL LISTATO dez 23) 

10 printchr*<147):a*(l)="N"ia*<2)="M” 

20 -forx = lto7s-forK= lto5 
30 t <1>=t i 

40 c#=a$<int<rnd<0>*2+1>> 

50 d$=a*<int<rnd<0>*£+l)> 

60 pr int ” "c*“ "d*‘ 

70 i-f <e*=a*< 1 ))*(cf=af<2))thens=s+l 
80 e$=d* 

80 it <c$=a*< 1))*(d$=af(£))thens=s + l 
100 nextKtprintipr intsnextx:print 
110 input "sequenze N M"Jp 
120 t <2 > =t i 

130 i-fp<>sthenprint”sbagl iato”iend 
140 pr int "esatto" 

150 i = int<<t<2>-t<1)>/60> 

160 print"secondi impiegati:“fi 
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